;
;	���� ����� ����������������� �����
;	----------------------------------
; ������: BL �������� ����������������� �����
;
Read_digit_hex:
	push	ax
	push	dx
	pushf
.M1:	mov	ah,8		;���� �������
	int	21h		; � ����������
	mov	dl,al           ;����������� ���� ������� � ������� DL ��� ����������� ������ �� �����
	cmp	al,30h		;��� ������� ������ 30h
	jb	.M3		; ���� �� ����� ��������
	cmp	al,39h		;��� ������� ������ 39h
	ja	.M2		; ��������� ������
	sub	al,30h          ;�������� �� ���� ������� 30h �������� ����� �� 0 �� 9
	clc			;���������� ���� CF
	jmp	.M4		;���� �� �����
.M2:	cmp	al,41h          ;��� ������� ������ 41h
	jb	.M3		; ���� �� ����� ��������
	cmp	al,46h		;��� ������� ������ 46h
	ja	.M3		; ���� �� ����� ��������
	sub	al,37h		;�������� �� ���� ������� 37h �������� ����� �� A �� F
	clc			;���������� ���� CF
	jmp	.M4             ;���� �� �����
.M3:	stc                     ;������������� ���� CF
.M4:	jc	.M1		;��������� ���� CF ���� ���������� �� ������������ � ������, ����� �������
	mov	bl,al		;���������� � ������� BL ���������� ��������
	mov	ah,2            ;������� ������ ��
	int	21h		; �����
	popf
	pop	dx
	pop	ax
	ret
;
;	���� ����������� ������������������ �����
;	-----------------------------------------
; ������: BL �������� ���������� ����������������� �����
; ������: Read_digit_hex
;
Read_byte_hex:
	push	ax
	xor	bx,bx
	call	Read_digit_hex
	mov	al,bl
	call	Read_digit_hex
	shl	al,4
	add	al,bl
	mov	bl,al
	pop	ax
	ret
	